home *** CD-ROM | disk | FTP | other *** search
/ JCSM Shareware Collection 1996 September / JCSM Shareware Collection (JCS Distribution) (September 1996).ISO / tutorial / trac.zip / FIGIII-8.TRA < prev    next >
Text File  |  1990-01-25  |  768b  |  26 lines
  1. 0999          0 Origin
  2.   OP          0
  3.    X          0
  4.    Y          0
  5.    Z          0
  6.               0 Dummy included to reserve read space
  7.  ONE          1 Constant one
  8. STRT     RD  OP Read OP, X, Y
  9.          LD  OP Load OP
  10.          SU ONE Find difference for test
  11.          BNSTOP If < 1 go to halt
  12.          BZ ADD If = 1 go to add routine
  13.          SU ONE If > 1 see if it is 2
  14.          BZ SUB If = 2 go to subtract
  15. STOP     HT0000 If not stop
  16.  SUB     LD   X Load X
  17.          SU   Y Subtract Y
  18.          ST   Z Store at Z
  19.          BUPRNT Go to print
  20.  ADD     LD   X Load X
  21.          AD   Y Add Y
  22.          ST   Z Store at Z
  23. PRNT     PC  OP Print
  24.          BUSTRT Go back to start
  25.          ENSTRT End of code with starting location
  26.